program testkeyword
	implicit none
	integer :: to, idim
	to = 3
	idim = 5
	write(*,*) to, idim
	stop
end program
